Burroughs Corporation 2TJ 

COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



B1800/B1700 FORTRAN S- LANGUAGE 



P.S. 2201 673 



PRODUCT SPECIFICATION 



R E V 
LTR 



REVISION 
ISSUE DATE 



7/17/78 



^^\mJ^-C l " 3 A ^decl QSSW to list of Privileged Instructions. 
Changes for MARK VIII. Release 



APPROVED BY 



REVISIONS 



"THE INFORMATION CONTAINED IN THIS DOCUMENT IS CONFIDENTIAL AND PROPRIETARY TO BURROUGHS 
CORPORATION AND IS NOT TO BE DISCLOSED TO ANYONE OUTSIDE OF BURROUGHS CORPORATION WITHOUT 
THE PRIOR WRITTEN RELEASE FROM THE PATENT DIVISION OF BURROUGHS CORPORATION" -""} 



e r» r> i a e o 



TC-l 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 

SANTA 8AR9ARA PLANT 



COMPANY CONFIDENTIAL 

Bteoo/t*iroo Fortran s-language 

P. S. 2 201 67 3 f (0) 



UhLl M SMhlZhlS 



INTRODUCTION . . l-l 

DEFINITIONS AND ABBREVIATIONS 1-2 

■PRIVILEGED INSTRUCTIONS ................. 1-3 

STRUCTURE 2-1 

PROGRAM PARAMETERS . . . . 2-1 

FORTRAN ADDRESSING 2-1 

FORTRAN STACK . 2-2 

SUB ROUTINE LINKAGE 2-3 

PARAMETER PASSING . . . 2-4 

STACK OVERf LOW-UNDERFLOW MANAGEMENT 2-5 

ARRAY BOUNDS ....... 2-5 

FORMATS 3-1 
STACK FORMAT ...*.. » • •• • «••••.*••••: ? • I 

Address Formats 3-1 

Simple Variable Address • • . • • • • . • 3-2 

Array Address 3-2 

Stack-Relative Address . . . . . 3-2 

Code Address 3-3 

Mark -Stack Address ...••••. 3-3 

Return Control Address 3-3 

VALUE FORMATS ............. 3-3 

Integer 3-4 

Real ............... 5-4 

Double Precision 3-5 

Uninitialized • • » • • . 3-5 

S-INSTRUCTION FORMATS 3-5 

OPERAND FORMATS .*....« 3-6 

S-INSTRUCTIONS 4-1 

LISTING 3Y INSTRUCTION 4-1 

LISTING BY MNEMONIC 4-3 

LISTING BY OPERATION-CODE VALUE • 4-5 

Three-ait Operation Codes 4-5 

Nine«8i t Operat ion Codes • ••••..••••••• 4-5 

DESCRIPTIONS 4-7 

Arithmetic Operators .« ........ 4-7 

A3S0LUTE VALUE (AfiS) 4-7 

AOO (ADD) . 4-7 

SUBTRACT (SUB) 4*7 

MULTIPLY (MUD ........ 4-7 

DIVIDE (01 V) 4-7 

DOUBLE (08LE) 4-6 

FIX (FIX) 4-6 

FLOAT (FLOAT) 4-9 

MAXIMUM (MAX ) 4-9 



TC-2 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA 8ARi3ARA PLANT 



COMPANY CONFIDENTIAL 

81800/31700 FORTRAN S-LANGUAGE 

P. S. 2201 67 37 <DJ 



MI 
NE 

ftranchi 
AR 
CO 
OY 
GO 

Logical 
AN 
CO 

Relat i o 
E3 
NO 
GR 
GR 
L£ 
L£ 

Store 
ST 
ST 
MO 

Load Op 
LQ 
LQ 
AR 
AR 
CO 
CO 
LO 

to 

MA 
Subr out 
SU 
RE 
R£ 
CO 
MA 
SP 
ST 
M j sc et t 
MU 
0£ 
OE 
OU 
EX 
CH 
HA 
SE 
DESCRIPTIONS 
CQMMUNI 



NTMUM <MIM> . • . . . . . . . 4-lQ 

GATE (NEG) 4-10 

ng Operators .4-11 

ITHMETTC TF TAIF) 4-11 

MPUTED GO TO (CGO) . . 4-11 

NAMIC 3RANCH (D8CH) 4-12 

TO (GOTO <C00t ACD^ESS>) . . . . 4-12 

Operators 4-14 

(AND) and OP (OR) 4-14 

MPLEMENT (NOT) 4- U 

nal Operators . . . • . . . . . .4-15 

UAL (EQ> 4-15 

T EQUAL CNE) . . . . . .. . . 4-15 

EATER THAN (GT) 4-15 

EATER THAN OR EQUAL (GE) . 4-15 

SS THAN CLT) 4-15 

SS THAN OR EQUAL CLE) ...... 4-15 

per at or s 4-16 

ORE DESTRUCTIVE (STO) 4-16 

ORE NONDESTRUCTIVE (STND) 4-16 

VE (MOVE) ........... 4-17 

erators 4-18 

AD ADDRESS (LA) 4-I8 

AO VALUE (LV) 4-19 

RAY LOAD ADDRESS (ALA) . 4-20 

RAY LOAO VALUE <ALV) 4-20 

NSIRUCT ARRAY DESCRIPTOR (CAO) ....... 4-21 

NSTPLCT STACK RELATIVE POINTER <CSRP) 4-21 

AD SMALL INTEGER (LSI) - . . 4-22 

AD SINGLE PRECISION LITERAL (LIT) 4-22 

K TWO (MAK2) 4-25 

infi Cat! Operators 4-24 

BRGUIItfE CALL «CALL) . 4-24 

TURN VALUE AND EXIT (RTNV) 4-25 

TURN CRTN) • • . • • • • • • • • •• • • • .4-25 

HPARE PARAMETER ATTRIBUTES (CPA) 4-26 

RK STACK (MKS) 4-27 

EC I At MARK STACK CSMKS) 4-27 

ATEMENT FUNCTION LINKAGE (SF) . . * . . . .4-28 

arieous 4-29 

LTIPLY BY LITERAL AND ADD ( ML A ) ...... 4-29 

CREMENT^MULITPLY-ADQ PARAMETER (QMAP) 4-29 

PRESS THE STACK TO MEMORY (DPRS) 4-30 

PLICATE-ONE (DUFl ) and DUPL IC ATE- TWO (DUP2) 4-30 

CHANGE CXCH) . 4-41 

ECK TYPE (CKT) 4-31 

ROWARE MONITOR (HMON) 4-32 

NSE SWITCH (SSM 4-32 

FOR I/O COMPILFR ONLY 4-35 

CATE (COM* <FIX.QIT>) 4-33 



TC-3 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA 3AR8ARA PLANT 



COMPANY CONFIDENTIAL 

B1800/31700 FORTRAN S-LANGUAGE 

P. S. 2201 6737 CD) 



EXTRACT FIELD CXTRT) 4-34 

LOAQ BITS CL008) 4-3* 

LOAD BYTE (L03) . * . • • . • 4-35 

LOAD COMMUNICATE REPLY (LDCFO 4-35 

STORE BITS CSTOB) 4-36 

STORE CHARACTERS (5TC) 4-37 

WRITE INTEGER DIGITS (HID) . ...... 4-38 

OS J03 (QDS) 4-39 



1-1 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA 8AR9ARA PLANT 



COMPANY CONFIDENTIAL 

81800/31700 FORTRAN S-LANGUAGE 

P. S. 2201 6737 (0) 



l&I&flJDU£IlJ2N 

Every Fortran S-language program has a base register and a limit 
register* The area between the addresses in these registers is 

used as data space cnly* Code segments are stored oy the MCP at 
any available memory location* The data space includes a 

non-overt ayable area* which contains the evaluation stack* and 
another area containing overlayabte data. The overlayabte area 
may contain more than one data segment* 

Various parameters required by ehe MCP and interpreter are stored 
beyond the limit register in the run structure nucleus* 



A typical 

1-1* 



F or trim program layout in memory is shown in Figure 
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Figure 1-1: Typical Memory Layout 
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The following definitions and abbreviations are used throughout 
th is specif i cat i on: 



Mar It- Stack Word <MSW) 



A 56-fcit word in the stack 
containing the 18 -bit 

base-relative value of the 

previous return control register* 
concatenated with the 

base-relative value of the 

previous mark-stack register- 
Contains the stack address of the 
latest MSW on the stack. 

Refers to logical entities on the 
stack. An item consists of one 

or two words and has a type 
(e.g.* address* integer* real or 
double precision) associated with 
it* 

Next-Instruction Pointer (NIP) Points to the next instruction to 

foe executed. 



Mark-Stack Register (MSR) 



Item 



Return Control Word IRCW) 



R e t ur n Control Register { R C R ) 
TOP-OF-STACK CTOSi 



Contains the segment and 

displacement of the instruction 
following the current subprogram 
call. The value is a 10-bit 

segment number concatenated with 
an 18-bit displacement. These 28 
bits are r i ght- j ust if i ed in the 
3 6-bit word* 

Points to the stack word 

containing the latest RCW. 

Represents the item most recently 
placed on the stack. 



TOP-OF-STACK-MINUS-CNE CTOS-l) Represents the second 

recently placed item. 



most 



Word 



Is 36 bits long and has no 
intrinsic "logical* meaning. 
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The following S-instructi ons are privileged and nay be generated 
only by an I/O computer* They are intended for use in writing 
insfrinsics- Data input to them is not necessarily checked for 

validity? it is the Fortran pro gr araarer f s responsibility to give 
vail d 



parameters 
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Parameters unique tc Fortran program execution are to be found in 
the scratchpad area in the run structure nucleus. They are 

listed in Tab! 3 ?-i« 



Par ameter 

Stack Size 

Stack Length 

Stack Address 

Mark -Stack Register 

Return Control Register 



S i gni f i c ance 



Original size allowed for stack 
Current remaining stack length 
Current stack address 
Address of latest MSW 
Address of latest RCW 



Table 2-1 » Unique Fortran Parameters 



Addressing breaks down into three basic types -- code segments* 
data segments and a stack -- with items in the stack being code* 
data or addresses. 

Address references to the stack may be: 

Implied Generally TOS and TOS-l {e.g., ADO, SUBTRACT). 

Direct Positiv* or negative, relative to the RCW Cthis 

type appears in the code) or base-relative (this 
type appears in the stack itself and refers to 
i terns in the st a'cfc ) • . 

A reference to a data segment address consists of a base and a 
displacement. The base is an index into the data dictionary and 
locates the segment containing the desired data. The 

displacement is a word index into the segment. 

If a reference to a code segment address is in a segment other 
than that containing the desired code segment, the address is a 
base and 3 displacement; the base is an index into the code 

dictionary and the displacement is the bit location relative to 
the beginning of the segment. Tf the reference is to the same 
segment which contains the reference, the address is the 
displacement from the beginning of the? segment. 
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Code and data segment references use the MCP's virtual memory 
management to place the segments in memory. The dictionaries 

record the memory address of each segment. 

* * . 
******************* BASE 

* *\ 
******************* \ 

f-->* STACK VALUE * \ 

|| ******************* \ 



STACK 



********* 
********* 
^SEGMENT* 

— ->*A0DRESS*---- 

I ********* 

I ********* | * - - - - - 

1 I 

I 1 

<8ASE DISPLACEMENT 
1 J 

| ********* | 

| ********* | 

*-->* SEGMENT*--* 

*A0QRESS* I i 

********* | i 



******************* / 

'--* STACK ADDRESS * / 
******** ****** **** */ 

* * 
>«•>**************** * * * \ 

* * \ 
>•>******************* \ DATA 

* DATA ITEM * > SEGMENT 
******************* / 

* * / 

******** ****** * * ** */ 

* * 
******************* LIMIT 

* * 

* * 



********* | i -«""»->**** ********* ****** \ CODE 

I --->* S-CODE * > SEGMENT 

*******************/ 
* * 

************** ***** 



Figure 2-1 s Addressing Methods 



The Fortran S-rtachine includes one evaluation stack* which is 
used for expression evaluation* subroutine linkage and subroutine 
parameter passing. 

The stack is in static memory but does not necessarily begin at 
the base register* It grows "up" from the base register end of 
memory toward the limit register end of memory* 
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Each word of the stack is 36 bits long. Entries on the stack may 
be one word long (e,g»* integer and real values or simple 
addresses) or two words (e,g«* array addresses or double 
precision values). Double-word items are pushed to the stack by 
first pushing the low- order 36 -t 'it word followed by the 
high- order 56 -bit word? this insures that the top word of the 
stack item contains the type bits which indicate whether a second 
word is on the stack for that item. 

An important consequence of this arrangement is that double-word 
items appear to be backwards in memory. This is important when 
reading Fortran dumps produced by the dump analyzer* For 

example* if the integer 3 i s pushed onto the stack* followed by 
the double -precision 1*0*0* then by l.C* they would logically 
appear in the stack as: 

T0$ 5013 00000 {real 1,0) 

TOS-l 001800000 (upper bits of double precision value) 

T0S-2 000000000 (lower bits of double precision value) 

T0S-3 000000003 (integer 3) 

However* a hexadecifal memory dump would show these in the stack 
as: 

000000003 000000000 001800000 501800000 

Note that the high-order bit of the double precision value 
4£fiA£d£3 * n memory to be adjacent to the low-order bit of the 
bottom 36 Pits. 



In addition to the stack being used for expression evaluation* it 
is also used for parameter passing and subprogram linkage 
information, Invoking a subprogram is £ four-part process* 

I, Push a mark- stack word (MSW) onto the stack, 

2- Load parameters to the stack, 

3, Push a return control word (RCW) to the stack, 

<♦• Transfer to the new location. 
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Two registers are maintained in the S-machine to help a 
subprogram to ireturn to the program from which it was catted* 
One* the varies tack register (MSR>* is a pointer into the 

evaluation stack. 

It points to the location of the uark-stack word (MSW)» 
Cdsscribed below) and it points to the place to cut the stack 
back to when exiting from the current subprogram. 

The other return control register (RCR)* is a pointer into the 

evaluation stack where a return control word (RCW) is located* 

The code address in the PCW tells where control should transfer 
to when exiting fro* the current subprogram* 

Since there are only one HSR and one RCR in the S-machine* their 
contents must be saved on each call to a subprogram and restored 
on each return from a subprogram* Their values are saved in the 
MSW* which contains two 18-bit* base-relative pointers* The left 
half is the previous RCR and the right half is the previous MSR. 

The return control register* in addition to pointing to an RCW* 
also serves as a reference pointer in the stack* When a Fortran 
subprogram references a parameter* the parameter is found by 
referencing a word in the stack* relative to* the current RCR. 
The compiler* when referencing a parameter* will set the stack 
bit in the S-instruction which causes the interpreter to 
reference the Nth word down from the current RCW toward the 
current MSW (N is found in the address field of the 
S-imstruction). In addition* the compiler can generate code to 
reference a data item that is N items "up" from the current RCR. 
This is useful for local data items which need not be maintained 
over successive calls to the subprogram and for temporary storage 
of intermediate results when evaluating expressions. 



EABAUEttfi EASiiaii 

Parameters may be passed fay value or by address. The value of a 
parameter is accessed directly or indirectly from the stack toy 
addressing a word relative to the RCR* When loading the value of 
a parameter* the interpreter checks the type bits of the 
designated stack item. If the type bits indicate that the item 
is a value (type bits -»~ binary 1C)* that value is loaded* with 
type bits set according to the rules for value loading* If the 
type bits indicate that the stack item is an address (type bits = 
binary 10)# the data address is decoded* the data segment made 
present C if necessary) and the desired value loaded. 
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If stack overflow occurs* it hill cause an abnormal termination. 
Since the compiler is assumed to generate correct code* stack 
underflow cannot occur? therefore it is not checked. 



A&fiiX'.aflilUBS. 

A Fortran array reference (ALA* LA* ALV or CAQ) will contain a 
base address* a mini nun subscript and a maximum subscript* The 
value found on the TOS will be the actual subscript and will be 
checked to insure that it is greater than or equal to the minimum 
subscript and less than or equal to the maximum subscript values 
given in the instruction* The minimum and maximum subscripts 
will be 18-bit numbers in twos complement. The maximum number of 
array elements will therefore be 2**17 - 1* 

The base address will be adjusted by the compiler (binder) so 
that before being adjusted by the subscript at run time- it may 
not (and typically will not) reference data in the array. In 

particular* the subscript will ba adjusted backwards by one to 
allow for the Fortran convention of arrays beginning at element 
one rather than zero* Further variation may result from 

optimizing array references of the form A(I*C)» where C is some 
integer constant* The base address of the array will be adjusted 
by the compiler to allow for the constant C* 

If a subscript is real- it is truncated to an integer. 

If the type bits in the operator indicate double precision (type 
bits = binary 11)* the subscript is doubled before being used to 
aijust the base address* 
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Stack items can be S-code addresses* data addresses or values. 
With the exception of the mark-stack and return control 
addresses* the first seven bits 'of a stack item have meanings as 
shown in Figure 3-1 • 



1- 

I stack 
I type 

I -— '- 

I 



code 
f t ag 



data 
t ype 



array I s tack-r el at i va 
flag I ft ag 



Figure 3-1: Stack Item Prefix 

The two-bit stack type flag is 00 for an integer value* 01 for a 
real value* 10 for an address or It for a double precision value. 
The code flag is 1 only when the item is an S-code address. The 
two-bit data type flag is meaningful for values only. The array 
flag is 1 only when the item is an array. The stack-relative 
flag is meaningful for data addresses only* 



Address-generating operators are LA* ALA* CA0* CSRP* MKS# SMKS* 
and CALL. The six types of addresses are simple variable 

addresses* array item addresses* stac k-rel ative addr esses* code 
addresses* mark-stack addresses and return control addresses. 
Each address occupyiies 16 or 72 bits. With the exceptions of 
mark-stack and return control addresses* the first two bits are 
10 and the next five indicate code* type* array and 

st ack -r el at i ve values. 
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11 bits 



10 bits 



8 tits 



|.«...|...| 1— -I 1 - — 

1 11 dat a 1 I I 

I 10. I i type 1 I I not used 

I — 4 ^ I — « j. --|«-- ---«-- 

1234 5 6 7 



I | | 

I i 1 

I base 1 displacement 1 

--I 1 * 

17 18 17 28 35 



ALL41 AjJdtfi5 5 



11 fc its 10 bits a bits 

f «- — | J-, j 1---I 1- I « 

I 1 i data I 1 1 I ■ ■ » ' 

I 10 I I type II 1 \ not used I base ! displacement 1 

4 — — ! j ,...(..« | ..--| | 1 

12 3 4 5 6 7 17 18 27 28 35 

18 bits 18 bits 
1 - I— * 

a minimum bound 1 maximum bound 1 

1 (see Array Bounds) I Csee Array Bounds) 1 

1- ..--- — --, 1 

36 53 54 71 



ita.^ssiaiiis ijliltiU 



5 bits 24 bits 
, j | ,---.,-•-, «t 1 

1 I I data 1 1 * 1 bit displacement % 
I 10 I I type 1 i 1 I not used 1 from stack base i 
, j , , ---^--j - — 1« - i 

123 4567 111? 35 
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previous return 
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e three are integer* real 
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Bits 3 and 4 • the data type 
cat variables* 01 for real 
10 is undefined). 

on~integers are stored in 
e in "excess 256" notation? 
e amount that it is greater 
t it is less than 256* For 
n "excess 256*" exponent of 
h two is to be raised* The 
han one and greater than or 
ere a fraction equals zero. 
ing point numbers must be 
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normalized; otherwise* ttie value is undefined. 

Negative numbers are represented with a sign bit of I* positive 
with a sign bit of 0. Zero is represented by all zeros except in. 
the type field. 

An exponent equal to zero and a nonzero fraction (e.g.* N**0.2) 
wilt result in an exponent underflow* divide by ?ero» and/or 
undefined results as the result of an arithmetic operation. An 
exponent that is nonzero with a zero fraction is undefined and 
will cause undef ined result s in an arithmetic operation. 

The second word of a doubte-prec i sion» floating-point number is 
treated merely as a 36-bit extension to the right of the fraction 
part of the first word of the number. The first word of a double 
precision number looks just like a s ingl e-prec i si on* 

floating-point number* except that the type bits are 11. 

9 bit s 2 4 bit s 
|.. ..].... I - — . 1 1 

1 I I high- order I • . 

I 00 I sign! part of I integer 1 

II I extended I ■. ■ . ■ 1 
I I I integer I ' 
,....., ,. | .. i 

12 3 11 12 35 

An extended integer is indicated by a nonzero high-order part. 

9 bit s 24 tits 
j...-t 1 .......... | „ .| 

I 01 isignl -excess 256* I normalized fraction i 

II 'I - exponent 1 i " 
{ .....|....| .., .....* 1 

12 3 11 12 35 
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9 kits 24 bits 
j 1--«-| — ■ i- « , I 

I 11 I sign! "excess 2 56* 1 normalized fraction I 

I 11 exponent 1 1 

, 1 , „ f .... . f 

12 3 11 12 35 

36 bits 
* — " I 

I I 

I lower-order 36 bits of double-precision fraction f 

t . J 

1 - — — I 

*6 71 



Uninitialized data have type field 10. The remainder of the 
format is undefined* Uninit i at i zed data wit I never be loaded to 
the stack but will be detected by a "IV" or W ALV W S-instruct i on* 



irIMIfiU£Iifla L&RMn 

An S-instructi on consists of an operation code (S-operator) which 
may be followed by a descriptor and/or other operands. There are 
two S-operator lengths:.' three bits for the most frequently used 
instructions and nine bits for all others. Alt nine-bit 

S-operators begin with bits 111* Many S-i nstruc t i ons operate on 
items from the stack* while others have one or more operands 
appended to the instruction itself. Detailed information on 
operands is jiven in the '"S'-iNS'TRUCT IONS" section with 
descriptions of each affected S~i nstruct ion . 
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Q££Mim EflEUAIS 

TabUe 3-la lists aM possible kinds 
bits for each occurrence. The six 
I i sted in Tabl e 3-1 fe. 



of operands and the number of 
tits of * descriptor are 



Operand 



Flag 

Type indicator 

Parameter type 

Descr iptor 

No. of operands 

Small positive integer 

or segment no. 
Code address or 

array bound < m ax* or m i n. ) 
Li ter al 



fco» of 
Bits 


Meaning 


No* of 
Bits 


I 
2 
4 
6 

8 


Code fiag 
Type field 
Array fl ag 
Stack field 
Unused 


I 
2 
1 
1 
I 



10 

16 
56 



Table 5 -la: Operands List 



Table 3- lb: Descriptor Bits 
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SrIA&IRSifillflMi 



LLSIJUIfi fll USlSIfiJUfilJflfi! 









Oper at i on 


Instruction Name 






Mneraoni c 

A 8 S 11 


Code 


ABSOLUTE VALUE 






Ll 


101 Oil 


ADO 






ADD 11 


Ll 


010 110 


ANO 






AND 11 


Ll 


001 001 


ARITHMETIC IF 






AIF 11 


Ll 


000 I 10 


/ARRAY LOAD ADDRESS 






ALA 01 


LO 




?ARRAY LOAD VALUE 






ALV 0] 


Ll 




BRANCH FALSE 






8RFL 11 


Ll 


000 101 


CHECK TYPE 






CKT 11 


Ll 


110 too 


COMMUNICATE 






COMM 11 


Ll 


001 too 


COMPARE PARAMETER ATTRIBUTES 


CPA 11 


Ll 


Oil Oil 


COMPLEMENT 






NOT 11 


Ll 


Oil 110 


COMPUTED GO TO 






CGO I) 


Ll 


001 000 


CONSTRUCT ARRAY DESCRIPTOR 


CAD 11 


Ll 


100 110 


CONSTRUCT STACK RELATIVE 


POINTER 


CSRP 1 


Ll 


101 000 


OECREMENT-MULTIPLY-ADD 


PARAMETER 


DMAP 11 


11 


Oil 101 


DEPRESS THE STACK TO M 


EMORY 


DPRS 11 


Ll 


100 101 


DIVIDE 






DIV 11 


Ll 


Oil 001 


DOUBLE 






D8LE 11 


Ll 


101 010 


DS J08 






ODS 11 


Ll 


no no 


DUPLICATE-ONE 






0UP1 11 


Ll 


101 100 


DUPLICATE-TWO 






DUP2 11 


L I 


101 101 


DYNAMIC 8RANCH 






D8CH 11 


Ll 


110 000 


EQUAL 






EQ 11 


Ll 


010 000 


EXCHANGE 






XCH 13 


Ll 


100 001 


EXTRACT FIELD 






XTJtf 11 


Ll 


Oil 111 


FIX 






FIX 11 


11 


101 001 


FLOAT 






FLOT 1] 


Ll 


000 000 


GO TO 






GOTO 11 


11 


000 111 


GREATER THAN 






G T 11 


.1 


010 Oil 


fcREATER THAN OR EQUAL 






GE ll 


11 


oio 10 1 


HARDWARE MONITOR 






HMON 11 


I 1 


100 100 


{Table 4-1 


i s 


cont inued 


on next page) 
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Instruct i on Name 



LESS THAN 


LESS THAN OR EQUAL 


LOAD ADDRESS 


LOAD SMALL INTEGER 


LOAD BITS 


LOAD BYTE 


LOAD COMMUNICATE REPLY 


LOAD SINGLE PRECISION LITERAL 


LOAD VALUE 


MAKE TWO 


MARK STACK 


MAXIMUM 


MINIMUM 


MOVE 


MULTIPLY 


MULTIPLY-LITEPAL'-ADO 


NEGATE 


NOT EQUAL 


OR 


RETURN 


RETURN VALUE AND EXIT 


SENSE SWITCH 


SPECIAL MARK STACK 


STATEMENT FUNCTION LINKAGE 


STORE BITS 


STORE CHARACTERS 


STORE DESTRUCTIVE 


STORE NONDESTRUCTIVE 


SUBROUTINE CALL 


SUBTRACT 


WRITE INTEGER DIGITS 


Table 4-1:. S-Instruct i ons 



Mnemonic 


LT 


LE 


LA 


LSI 


L0D3 


1.09 


LDCF 


LIT 


LV 


MAK2 


MXS 


MAX 


MIN 


MOVE 


MUL 


ML A 


NEO 


NE 


OR 


RTN 


RTNV 


SSW 


SMKS 


SF 


ST09 


STC 


STO 


STND 


CALL 


SUB 


HID 



Oper at ion 


C 


ode 




111 


010 


010 


111 


010 


too 


000 






no 






111 


Oil 


010 


11 1 


001 


no 


111 


100 


000 


101 






001 






111 


10 


111 


111 


000 


100 


111 


101 


111 


HI 


101 


no 


til 


no 


Oil 


HI 


Oil 


000 


111 


on 


100 


111 


10 


010 


111 


010 


001 


111 


001 


010 


HI 


000 


Oil 


111 


000 


010 


111 


110 


101 


111 


100 


on 


111 


001 


on 


111 


001 


in 


111 


110 


001 


100 






111 


001 


101 


111 


000 


001 


111 


010 


III 


111 


no 


010 



Listed by Instruction Name 
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UHLNS m mL«§nz 



Instruct ion Name 



Mnemoni c 



Operation 
Code 



A3SQL 

ADO 

ARITH 

ARRAY 

ARRAY 

ANO 

3RANC 

CONST 

SUBRO 

CHECK 

COMMU 

COMPU 

COMPA 

CONST 

DYNAM 

D0U8L 

DIVIO 

OECRE 

OEPRE 

DUPLI 

OUPLI 

EQUAL 

FIX 

FLOAT 

GREAT 

GO TO 



UT£ VALUE 

METIC IF 
LOAD ADDRESS 
LOAD VALUE 

H FALSE 

RUCT ARRAY DESCRIPTOR 

UTINE CALL 

TYPE 
NICATE 
TED GO TO 

RE PARAMETER ATTRIBUTES 
RUCT STACK RELATIVE POINTER 
IC BRANCH 
E 
E 

MENT-MULTIPLY-ADD PARAMETER 
SS THE STACK TO MEMORY 
CATE-ONE 
CATE-TWQ 



ER THAN OR EQUAL 



A8S 

ADD 

AIF 

ALA 

ALV 

AND 

8RFL 

CAD 

CALL 

CKT 

COMM 

CGO 

CPA 

CSRP 

DBCH 

D8LE 

DIV 

DMAP 

DPRS 

DUPl 

DUP2 

EG 

FIX 

FLOT 

GE 

GOTO 



101 

010 

000 



001 
000 
100 
000 
110 
001 
001 
Oil 
101 

no 

101 
Oil 

Oil 

100 
101 
101 
010 
101 
000 
010 
000 



Oil 

110 
110 



001 
101 

no 

001 
100 
100 
000 
Oil 
000 
000 
010 
001 
101 
101 
100 
101 
000 
00 1 
000 
101 

111 



(Table 4-2 is continued on the next page) 
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Instruction Name 



GREATER THAN 
HARDWARE MONITOR 
LOAD ADDRESS 

BYTE 

COMMUNICATE REPLY 

THAN OR EQUAL 

SINGLE PRECISION LITERAL 

SMALL INTEGER 

THAN 

VALUE 

TWO 



LOAD 

LOAO 

LESS 

LOAD 

LOAO 

LESS 

LOAO 

MAKE 

MAXIMUM 

MINIMUM 

MARK STACK 

MULTIPLY-LI TERAL-ADO 

MOVE 

MULTIPLY 

NEGATE 

COMPLEMENT 

OR 

OS JOB 

RETURN 

RETURN VALUE AND EXIT 

STATEMENT FUNCTION LINKAGE 

SENSE SWITCH 

STORE CHARACTERS 

STORE DESTRUCTIVE 

STORE BITS 

SUBTRACT 

WRITE INTEGER DIGITS 

EXCHANGE 

EXTRACT F1EL0 

Table 4-2* S* I nstr uc t ions Listed 





Oper at ion 


Mnemonic 


Code 




GT 


111 010 


oil 


HMON 


111 100 


100 


LA 


000 




LOB 


111 001 


110 


LDCR 


111 100 


000 


LE 


111 010 


100 


LIT 


101 




LSI 


110 




LT 


111 010 


010 


LV 


001 




MAK2 


111 100 


111 


MAX 


111 101 


III 


MlN 


111 101 


110 


MKS 


111 000 


100 


MLA 


111 Oil 


100 


MOVE 


111 110 


Oil 


MUL 


111 Oil 


000 


NEG 


HI 100 


010 


NOT 


in on 


110 


OR 


111 001 


010 


OOS 


111 110 


110 


RTN 


111 000 


Oil 


RTNV 


111 000 


010 


SF 


111 001 


on 


SSW 


111 110 


101 


STC 


111 uc 


001 


STO 


100 




STOB 


HI 001 


HI 


SU8 


HI 010 


111 


WIO 


111 110 


010 


XCH 


111 100 


001 


XTRF 


111 Oil 


111 


»ted by Mnemonics 





'■a. 
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LmiHS fiX JMXSillfl^QM mu 



Iht&aza&L ajBSoiijsu &&&&% 



Octal Value binary Value Mnemonic Instruction Name 



LOAD ADDRESS 

LOAD VALUE 

ARRAY LOAO ADDRESS 

ARRAY LOAD VALUE 

STORE DESTRUCTIVE 

SINGLE PRECISION LITERAL 

INTEGER LITERAL 

by Op Codes (Three Sits) 






00 




LA 


I 


001 




IV 


2 


010 




ALA 


3 


Oil 




ALV 


k 


100 




STD 


5 


101 




LIT 


6 


no 




LSI 


Table 4-3a: 


S~ Instruct 


ions 


Li sted 



MjLSrlll ££££Mi££ £&*££ 



'Octal Value Binary Value Mnemonic Instruction Nam< 



700 1 


1 1 


000 


000 


FLOT 


701 1 


11 


ooc 


001 


CALL 


702 1 


11 


000 


010 


RTNV 


703 I 


11 


000 


Oil 


RTN 


704 I 


11 


000 


100 


MKS 


705 1 


11 


00 


101 


8RFL 


706 1 


11 


000 


ltd 


AIF 


707 1 


11 


ooc 


lit 


GOTO 


710 1 


11 


001 


000 


CGO 


711 I 


1 1 


001 


001 


AND 


712 I 


11 


001 


010 


OR 


713 1 


11 


001 


Oil 


SF 


714 I 


11 


001 


100 


COMM 


715 1 


11 


001 


101 


STND 


716 1 


1 1 


001 


110 


LO 8 


717 I 


11 


001 


111 


ST08 


720 1 


11 


010 


000 


EG 


721 I 


11 


010 


001 


NE 


< T 


ab3 


Le V 


•3b is 


cont i nued 



FLOAT 

SUBROUTINE CALL 

RETURM VALUE AND EXIT 

RETURN 

MARK STACK 

8RANCH FALSE 

ARITHMETIC IF 

GO TO 

COMPUTED GO TO 

AND 

OR 

STATEMENT FUNCTION LINKAGE 

COMMUNICATE 

STORE NONDESTRUCTIVE 

LOAD fJYTE 

STORE 81 TS 

EQUAL 

NOT EQUAL 

on next page) 
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Octal Value 3 i nary Value Hretnonic 



Instruction Name 



722 
72 3 
724 
725 
726 
727 
730 
731 
732 
7 33 
7 34 
7 35 

736 
737 
740 
741 
742 
743 
744 
745 
746 
747 
750 

751 
752 
753 
754 
755 
756 
757 
760 
761 
762 
763 
764 
765 
766 



11 I 
til 
111 
111 
111 
111 
ill 
111 
111 
111 
111 
111 

111 
ill 
111 
til 
111 
Hi 
111 
ill 
ill 
Hi 
111 

111 
ill 

111 
111 
111 
ill 

i Li 
111 
III 

II i 
111 

II I 
li 1 
ill 



010 
010 
01C 
010 
010 
10 
Oil 

Oil 
ou 
on 
on 
om 

Oil 

on 

100 
IOC 
100 
100 
100 
100 
100 
100 
101 

id 

101 
101 
101 
101 
101 
101 
110 
HO 
110 
110 
110 
110 
110 



010 
Oil 
100 
101 

100 

ill 

000 
001 
010 
Oil 
100 
101 

110 

ill 

000 
001 
010 
Oil 
100 
101 
HO 
HI 

coo 

001 
010 
Oil 

too 
tot 
lio 
ill 

000 
001 
010 
OH 

100 
101 

MO 



LT LESS THAN 

CiT GREATER THAN 

LE LESS THAN OR EQUAL 

GE GREATER THAN OR EOUAL 

ADO ADO 

SUB SUBTRACT 

MUL MULTIPLY 

DIV DIVIDE 

LQDB LOAO BITS 

CPA COMPARE PARAMETER ATTRIBUTES 

ML A MULTIPLY-LITERAL-AOD 

QMAP DECREMENT-MULTIPLY-A9D- 

PARAMETEP 

NOT COMPLEMENT 

XTRF EXTRACT FIELD 

LOCR LOAD COMMUNICATE REPLY 

XCH EXCHANGE 

MEG NEGATE 

SMKS SPECIAL MARK STACK CALL 

HMON HARDWARE MONITOR 

OPPS DEPRESS THE STACK TO MEMORY 

CAD CONSTRUCT ARRAY DESCRIPTOR 

MAK2 MAKE TWO 

CSRP CONSTRUCT STACK RELATIVE 

POINTER 

FIX FIX 

OBLE DOUBLE 

A8S ABSOLUTE VALUE 

0UP1 DUPLICATE-ONE 

0UP2 DUPLICATE-TWO 

MIN MINIMUM 

MAX MAXIMUM 

DBCH DYNAMIC BRANCH 

STC STORE CHARACTER 

WID WRITE INTEGER DIGITS 

MOVE MOVE 

CKT CHECK-TYPE 

SSW SENSE SWITCH 

QDS OS JOB 



Table 4-3b* S-I instruct i ons Listed by Op Codes (Nine Bits) 
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&£&£&l£IliUli 



Aciliij5£i£ Qfisciiiics 



AjS£J2Lyi£ UIM LA&&1 



Format s 

i i 

1 op code I 

i in ioi on r 

I I 

o a 

A3.S turns off the sign bit for the value on the top of the stack 



auumi iMjyu 

filllfli LH1U 



Format : 

I— - — -- — I 

I 1 

I op code I 
fill 010 1101 

I 1 

I — - 1 

8 

CAOO) 



I I 

I op code 1 
1 111 010 1111 
I 1 

I— — — * — -1 
G 8 

«SU3) 



I ,-. — - — | 

I I 

I op code 1 
1111 Oil 0001 
t 1 

I- — - — -1 

8 

CMUL) 



I «.| 

1 « 

1 op code I 
I 111 Oil 00H 

1 1 
I 1 

8 

COIV) 



Each of these four functions pops two items off the stack and 
perforis the indicated operation. The mode of the operands nay 
be lilted* with the results described in Table 4-4. The result of 
the operation is pushed onto the stack*. SU8 subtracts T0S from 
T0S-.1. DIV divides T0S into TOS-1* 'Attempting to divide by zero 
causes abnormal ter itinat ion. 
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second operand type 



first operand type! integer II real idouble precision 

I I ■ ■ I 

integer f integer* §real Idouble precision 

real Ireal ilreal Idouble precision 

double precision Idouble prec.f double prec. Idouble precision 



For ib at s 



♦integer division yields a truncated result. 
Table -k m Mi Modes of Arithmetic Results 



i . — — i 

i i 

I op code I 
1111 101 010 I 
I I 

!--■ ---1 

o a 

03LE converts the item at TOS from integer or real to double 
precision and replaces the original item with the converted itea. 



m inn 



Format s 



% ■■ 'i 

\ op code \ 
\ ill 1 CI 001 i 
1 I 

1 --1 

o a 

FIX replaces the item at TOS with a (possibly extended) integer 
value. The fraction part of a real or double precision item is 
truncated* not rounded. 
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LL2LA1 LLIM11 



Format 









1 


op 


cod 


le 


1 


11 1 


00 


000 


1 
1 



o e ■ 

FLOAT examines the type field of the item at T0S« If it is reat» 
the item is left unchanged. If an integer* the iteit is converted 
to real? some loss of precision is possible if the integer was 
an extended integer*- although rounding will be performed; after 
normalization. 



If the 
r e a i • 



item is double precision* it is rounded and truncated to 



nAumn iun 



For aiat * 



I op code 
1111 101 111 
I 

1 — ' 

I 



MAX pops the top two items off the stack and pushes the greater 
of them back onto the stacft. The two iteais need not be of the 

same type. 
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MMHy* IfllfiJ 



Format 5 

I -I 

II 
1 op code I 
i 11 1 101 110 1 
I i 

, ,-* ! 

' . o a 

MI N pops the top twc items off the stack and pushes the minimum 
of them back onto the stack. The types of the two items need not 

be the saie. 



A££AI£ <M£J 



Format s 



I. ......... 1 

I I 

1 op code I 
lilt 100 010 J 

I I 

P 



NO complements the si^n bit of the top item on the stack 
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anaflsiuaa aa^oisci 



ifliIUM£IJ£ II lli£l 



For mat * 



op code 

in ooo no 



address 1 



address 2 



address 3 







a 9 



26 27 



4* 45 



6? 



AIF pops the stack. If the popped word is negative* the first 
code address is added to the current-segment base and this 
location is used to fetch the next executable S-i nstruction. If 
the popped word is zero* the second address is used* If 
positive* the third address is used. 



££M.PMI£i2 fifl IQ 1£G02 



Formats 



I--- - 

I 

I op code 

i in ooi ooo 

1 

I 



-I 

I 

• I 

I 

1 

-1 



number of 
addresses 



address 
I 



addre ss 
2 



34 35 



address 

N 







16 17 



52 



The CG0 instruction expects an integer on T0S* which it compares 
with the number of addresses following the operation code. If 
the staei integer is greater than that number or iess thin one* 
coriiroi transfer* to the instruction following the CG0 
instruction- Otherwise* the integer is used as an index ifito the 
address list in the CG0 instruction fnote that indexing starts 
with 1* not 0K The address i n the list is a segment-relative 
address which becomes the next instruction pointer. A maximum of 
255 addresses may be specified. If the T0S is not an integer* 
then CG0 forces it to integer. 
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QI&MIQ SEiMH i0J£iU 



Format 3 







1 


1 


1 


op code 1 


1 


11 1 110 000 1 


1 


1 



o a 

OBCH expects a code address. The address is popped and execution 
continues at TQS. If the segment field is *ero# the address is a 
bit displacement relative to the start of the current code 
segment* 



fiOIQ ISaifi <££££ ifiLQfi£SS>Ji 



Format? 



op code 
1 11 000 111 



code addre ss 







e 9 



26 



GOTO obtains the program base-relative code address* 
to an absolute address and places it in the next 
pointer* 



converts it 
i nstr uct i on 
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8RANCH FALSE C8RFL) 



For mat * 



i 






1 


1 


op 


cod 


e 


1 


1 


III 


000 


101 


1 


1 








1 



code address 



6 



2h 



8RFL pops the stack and examines the least significant bit of the 
value. If the bit is zero the next instruction pointer is set 
to the absolute address resulting from conversion of the program 
base-relative code address passed in the instruction. Otherwise* 
the next instruction pointer is increased by the length of the 
BRFL instruction. 
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Laaisjl afiscalftm 



Am LhMl 1Q.<J Q£ LOU 



or mat 



I 
I 
* 
1 


1 

op code 1 

111 001 001 1 

I 


1 
1 
1 
I 
1- 


1 

op code 1 

111 001 010 1 

t 



AND 



OR 



Either of these operations pops two value operands from the 
stack. If the operands are both single-word length or are both 
double-word length* the indicated operation is performed on all 
■bits except the type bits of both operands. The type is set to 
double precision if either operand is double precision* to real 
if either is reaU otherwise to integer. 

If one operand is single-word and the other is double-wordr the 
single-word operand is assumed to have an all -zero second word* 
A bitwise -logical and* or -logical or" is then performed on the 
two operands and the result is pushed onto the stack* 



£2Mf.L£«EJiI L&Q11 



Format s 



op code 
III Oil 1 10 



8 



NOT pops the stack* checks the type and performs ones complement 
on all bits indicated- except for the type itself <e*g.# if the 
descriptor indicates double precision- 72 bits minus the 
descriptor are complemented). The result is pushed onto the 

stack* 
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L£ii IUJU XUi 

lsis hum as fayii au 



Format: 

I --j 

1 I 

I op code 1 
1 111 010 000 I 

1 I 

I---— 1 

8 

EQ 

I--- 1 

I I 

I op code 1 
I 111 010 10 1 I 
I I 

I — ! 

8 

GE 



1 -1 

I 1 

I op code 1 
1 111 010 001 I 
1 I 

I -j 

8 

J- --I 

I 1 

I op code 1 
I III O10 010 I 

i i 

i ...... — -- — --i 

o e 

LT 



j | 

I J 

I op code i 
1 111 010 Oil J 
1 1 

I—- • 

8 

GT 

I 1 

I t 

1 op code I 
I 111 010 100 t 

1 « 

I 1 

8 

LE 



Each of these comparators pops two items off the stacfr and 
performs the indicated comparison. If the result is truer an 
integer lis pushed onto the stack? otherwise an integer is 
pushed. Thf* operation is performed as <TQS-l ><re tat i on><T0S>. 
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SIflfiJE 2££IE.L£im mzi 

sum *3Nii£iiEy£im isiaiu 



Format s 



1 




1 


1 
1 
1 


op code 
100 


1 
1 
1 



STO 



op code 
lit 001 101 



STND 



Both STO and STND expect the top word of the stack to be an 
address and the word below to be a value* The value is stored at 
the address with restrictions placed by the descriptor* according 
to Table 4-5. The address is popped from the evaluation stack. 
With STO only* the value is also popped. 



Address 

Integer 
I n t e 9 er 

Integer 
Real 
Real 
Real 

Double Prec. 
Ooubl e Prec- 
Double Prec. 



Value 

I nteger 

Re at 

Double Precision 

Integer 

Real 

Double Precision 

Integer 

Real 

Double Precision 



Rule 

m * ■» ■» 

Assign 

Truncate to an integer and assign 

Truncate to an integer and assign 

Float and assiqn 

Assign 

Round to 24 bits and assign most 

significant part 
Extend to double prec. and assign 
Extend to double prec. and assign 
Assign 



Table 4-5: Assignment Rules for STO and STND 
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I 



UML LM1L1 



Formats 

9 bi ts 



1 bit 



18 bits 



2 or 4 0# kp 8 or 19 

bits bits 



I 



1 



1 



1 



I op code I stack I destination I variant I source Cmay I 

I 111 110 Oil 1 I address I 1 be nonexistant) 1 
I ! ...|- „.-.-| | I 

. 3 9 10 27 28 29 30 35* 37 



Bits 28 
and 29 



Bits 30 
and 31 



Interpret at ion 



00 
00 

00 
00 
01 
10 



11 



00 no source field; source implied to be 

01 no source field; source implied to be 1 

10 source field is four-bit literal in bits 32 

11 undefined 

no source field* source implied to be TOS 
source field is 19 bits? bit 30 is a stack 

Boolean and bits 31. ..48 are a segment" 

displacement address 
source field is bits 30.. .37? it is a word 

displacement in the same segment as the 

destination address 



35 



Type conversion is never performed. The type field in the 
destination will be set the same as in the source. For variant 
00* type is set to integer in the destination. 
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LSJd S££rii2is 



UAS AQfiiiUJ? IL*1 



Format t : 



1 

op I 

code 1 
000 I 

-I 



type 



stack 



not 

used 



base and displacement 



26 



Format Z* 



I ----- 
1 op 

I code 
I 000 



1 



II 1 f I not 1 base and I mint sum- j maximum- 1 

1 I type I I 1st acM used 1 di spl a ce~l sub scr i ptf subscript I 
% I f i | Jment lvalue lvalue 1 



I 



4 



1 



I 



26 27 



I 



1 







i 



8 



44 45 



62 



Format 5a 



I 



J 



I op 1 
I code i 
I 300 I 
1 I 



I 



t 



I 



I not I 

1 used I 

I 1 

, j 



I I not 1 

1 stack 1 used 1 
I $ I 



ba se 



d ispt acement 



8 



le 19 



36 



If the stack bit is zero* then the descriptor bits* base and 

displacement are used in creating either a simple variable 

addrels {format i>* array address (format 2)* or code address 
Cf or mat J) at TQS# 
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address using the pointer is placed at TOS- 

In either case* the TOS pointer is bumped appropriately. 



Format s 



i 



•I 



I op code 1 type 

I 001 I 

I 1 

2 5 



stack 



not 
used 



base and 

di splacement 



--J 
I 

i 
--I 

2k 



If the stack bit is 0* LV fetches the value at the indicated 
base-displacement address and puts it on the stack. If the type 
fietd is 10* LV loads the value with the type field as it appears 
in memory; otherwise* it forces the type field equal to that in 
the S-instruct i on. 



If the 
displac 
control 
hi qh-or 
subtr ac 
the its 
to the 
uses th 
found 
S- instr 
found i 
that in 



stack 

a itent ar 
regist 
der bit 
ted fro 
m thus I 

top of 
e found 
value t 
uction i 
n the va 

the S-i 



bit 
e take 
er. 

i s s 
m loth 
ocated 
the st 
a d dr e s 
o the 

s I0o 

lue; 
nstr uc 



is 1 * t 
n as an 

This v 
et* th 
er wi se i 

i n the 
ack. I 
s to I oc 
top of t 

LV load 

otherwi 
ti On. 



he I 
of 
a t u e 
is 

t i s 
stac 
f th 
ate 
he s 
s th 
se* 



ow-order I 

f set from 

i s mutt 

multi pi ica 

added to) 
k i s a v al 
e item fou 
the data 
tack. If 
e value w i 

it sets t 



1 bi 

th 

Ipli 

t i on 

the 
ue* 
nd w 
valu 

the 
th t 
he t 



ts of the base and 

e current return 

ed by 36* If the 

result is then 



current RCR. 

then LV loads 
as an address* 
e and loads 

tyoe field in 
hat type field 
ype fietd equat 



If 
it 

LV 

the 

the 

as 

to 



t he 



If the type fietd in the value does match the type field in 
S-instruct ion* conversion is not performed although the type 
field is modified as described above. 



The program is terminated with "uninitialized data" if 
field on the value is 10* 



the type 
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AJ5SAI Lflifi J12JJ!i£J5£ IJiil 



Format * 



I i — «4 j 1— 1 I — -I 

I |1 I not I base and 1 mini mum- Maximum- I 

I type I 1 I stack I used t di sptace-1 subscript f subscript I 
1 1. | l 1ment lvalue i value I 



I op I 
t code i 

r' : .oio' ; ' i 



i 



i 



i 



— i — ■ 

26 27 



I 



I 



1 



44 4 5 



62 



ALA places a simple variable address at TOS. The address is 
formed as for LA# except that TOS has a subscript used in 
modifying the base address as described in Section 1. If the 
stack bit is \* the minimum and maximum bounds do not appear in 
the code but appear as part of the address in the stack which is 
pointed to by the base and di spltacement . 



ABfiM in in my£ Lhx.ii 



Format • 



I 



.-I t 1 1 | --_| ------- 

I I § inot I base and 1 mini mum- I maximum- t 

itypel i Istacklusedidi splace-t subscr i ptlsub script! 

I 1 ] 1 Iment lvalue lvalue I 

,..|...«|..«l 1 | -| i —I 

3 4 5 6 7 8 9 26 27 44 45 62 



I op 1 
I code 1 

I Oil 1 
I 1 

2 



ALV places a value at 10$ by per forming an ALA but placing the 
addressed value at TOS Instead of the address. The type field of 
the loaded value is set to tt»e type specified in the operator* 
unless the S-ins truct ion*s type field is 10* in this case* it is 
set like the type field of the data item in memory. The program 
is terminated wi th "uni ni t i at i zed data* i f the type field of the 
item in memory is 10. 
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-£JW£IBU£-I ABfiAI fi£S£&lEIM I£i£2 



for mat i 

t 1 ---I- *| 1 1 1- 1 

I II II 1 not I base and 1 

I til 100 110 to 1 type I 1 I stack I used I displacement I 

I II II 1 1 I 

!«-.«• • 1 1« 1 f .... ...«.| -<. 1 1 

8 9 10 U 12 13 14 15 32 

1 - 4 — I 

I I I 

I minimum subscript 1 ma x i rautn subscript I 

I 1 I 

I , « — | 1 

33 50 51 68 

Using the item on TOS* CAD modifies the base* displacement* 
minimus and maximum subscript* then places an array descriptor on 
the stack <after popping the top item). If the stack bit = 1* 
CAD uses the array descriptor in the stack referenced. In this 
case* minimum subscript and maximum subscript are not given in 
the S-instruct i on. See Section I for description of base and 

array bound formats* 



Format * 



£QjmSU£I SIMS BOLJim £fll!II£B i£3EEl 



1 •««*i>a«««**«Bl 



1 


1 


1 


op code I 


1 


111 101 000 1 


1 


i 







CSRP uses the TOS as a word pointer to construct a stack-relative 
address description- The T0S item indicates the number of words 
from the return control register to point to. A positive Index 
is toward the stack base* a negative index is away from the base. 
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LQAJQ £*4U INI£fi£S LLU1 



For mat • 



i 




1 




1 


1 


110 


f 


i i t eral 


1 


1 




1 




1 



2 3 



I? 



LSI uses the IQ-bit literal as the rightmost 10 bits of the 
mantissa of a 56-fait integer. The integer formed is assumed 
positive. 



1QAJ2 £I!i£k£ P£££ISIJ3N LlliSik 1LII2 



Format s 



I- 1 

1 

I op code 

I 101 

i 

I — . 

2 5 



I i ter at 



38 



LIT places the 36-bit literal on TOS and increments the TOS 
pointer. 
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JIM UJfl 1UU1 



For mat 



1 


1 


1 


op code 1 


I 


ill 100 111 1 


I 


1 



I--- 1 

3 

MAK2 wakes the item at TOS occupy two words in the stack. If the 
item at TOS is not a double-wcrd item <i.e* is integer or real 
value or a non-array address)* then MAK2 copies the item forward 
in the stack and makes its former position in the stack a\t 
zeros. 

This is usee in passing parameters* where the formal parameter 
may be a scalar toccupying one word in the stack) or an array 
where the actual parameter was a subscripted variable (could 
occupy one word) or an array. 
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lubLMlins. £Mi Susoiats 



SJlfiBJUIIIM £iLl X£iiU 



For n at * 



op code 
111 000 001 



segment nuaber 



code address 







8 9 



18 19 



36 



If the segment number is not zero* CALL multiplies the segment 
number by dQ to get an index into the segment dictionary. If the 
needed segment is not present* it issues a COMMUNICATE to the MCP 
to fetch it. When the segment is present* the code address is 
added to the absolute base address of the new segment* to get the 
next -instruct ion pointer. The mark-stack register is then moved 
to the return control register. 

If the segment number is zero* CALL multiplies the code address 
by 36 ' and subtracts the product from the return control register 
to get an index into stack. It then gets the segment number and 
code address from the stack Csee LOAD ADDRESS for the format) and 
performs the actiors described above for a nonzero segment 
number. 
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Format s 



1 



op code 
111 000 010 







RTNV pops the TOS and saves the value which is on the TOS* A 
RETURN is performed and the saved value is pushed onto the stack. 



B£iUE& i&IUl 



For mat : 



.'§ *«IM«*««|iMM-««l'*W 



t 








4 


1 


op 


coc 


le 


1 


i 


U 1 


000 


Oil 


I 


I 








i 

















a 



The RETURN instruction uses the return control register to get 
the segaent -ret a t ive address from the stack, brings in the prooer 
segment then set* the instruction address register 

(newt-instruction pointer) to the absolute address of the next 
instruction. The TdS pointer is set to the contents of the 

mark-stack register* the MSR is loaded with the contents of the 
rightmost 18 bits of the TOS and the RCR is loaded with the 
leftmost 18 bits of the TOS. 
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Syntax: CPA <no. of parameters> <PARAM.l> '<PARAM.2> ... <PARAM.N> 



Format : 



op code 
ill Oil Oil 



number of 
parameters 



P.ARAM* 1 



PARAM.2 



PARAM.N 







8 9 



16 17 



20 21 



24 



The CPA instruction insures that the parameters in the stack 
agree in number and type tilth those expected by the called 
subprogram. Starting with the operand after the mark -stack word* 
CPA checks the descriptors of all parameters passed on the stack 
against the types in the CPA instruction. If a non-match occurs 
or the number of parameters passed in the instruction disagrees 
with the number of parameters between the mark-stack and return 
control word* then a run-time error occurs. 

Each parameter is assumed to occupy two words in the stack. 

If an operand on the stack begins with a binary 10* (i.e.* 
operand is an address)* then the next four bits of the stack 
operand are compared with the parameter type found in the CPA 
instruction. If the parameter is an array and the CPA array bit 
is zero* then the parameters are considered matching and^the 
array bit in the parameter description is set to zero- 
facilitates passing subscripted arrays to scat ars. 



This 



When the code flag (see Figure 3-1) is on in both the CPA and the 
parameter* special checking occurs. If the type bits in a 
parameter descriptor are binary 10* the parameter is considered 
to match* in all other cases* the descriptor bits must match 
those of the CPA. A maximum of 255 parameter types may be 
soecified. 
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MARfi HMJS IMSJ 



Format 



I 

op code 1 
11 1 000 100 1 

1 

„ 1 







8 



MKS concatenates the rightmost 
register with the rightmost 
and pushes the result onto the 
set to the TOS pointer and the 



18 bits of the return control 
18 bits of the mark-stack register 
stack. The nark-stack register is 
TTOS oointer is incremented* 



■5£££1A1 JHAEtfi $U£& iiHJSil 



Format i 



1 


1 


I 
1 
1 


op code 1 

111 100 011 1 

1 







9 



SMKS is used for invoking exponentiation and complex arithmetic 
routines* It expects two arguments on the stack, SMKS moves 
them up and inserts an MKS operation. 
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For ■■at s 



op code 
UO 001 Oil 







-I- 

1 

1 

1 

-I- 

8 9 



address 



Zh 



SF sets up linkage to a statement function* then transfers 
control* The statement function is not external ? the code 

address is a bit displacement froir the program base. 



Thi s is 

current- 



the sate as call* 
The segment address is 



except that the 
base-retat ive. 



code address is 
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Miissllinesuj 



mimi u iiu&AL Am ass mm 



Format 



I — j 

i < 

I op code f 
1 III 01 1 100 I 

I 1 



I i tec at 



I 



•■■••■I 







8 9 



26 



ML A Is used to form an index into an array* For an array A 

dimensioned A<01# 02* 03*.. .0) and referred to by 

A(Sl# S2» S3»«.*S)» the general Index is calculated by: 

I St - I) ♦ 01CS2 - 1) ♦ 0l*D2<53 - I) 4...* 01*02 *0 3. . . DN< SN - 1). 

01 through ON ar>a emitted as literals following the MLA 

instruction. The MLA instruction multiplies the element on the 

T0S by the literal passed in the instruction. The stack is 

popped and the result created above is added to the new T0S. The 
total is pushed onto the stack. 



fl££S£Hm-Mj&iX£LI::4afl -fABAflflifi LMAtl 



Formats 



1 




l 




1 


I 


op code 


i 


base 


1 


1 


ill Oil 1 1 


1 


di splaceraent 


1 


1 




i 




i 



9 9 



26 



0MAP is a specialized instruction used when variable dimensions 
have been passed to a subprogram. The cumulative dimension 
information cannot be given to the interpreter via a literal (as 
in MLA). Thi s i nf ocmati on is calculated and stored relative to 
the latest RCW. 
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DMAP decrements <by 1) tha value on the TOS and examines the 
contents of the stack word to which the given base-dispt acement 
points* If this word is a base-displacement address of a simple 
variable* then the value of this variable is placed on the stack. 
If the word is a value* then it is placed on the stack. The 

to fey the base-displacement is then 
variable. The stack i s popped and 
to the current total- This sum is 



value of the word pointed 
multiplied by the decremented 
the value on the TOS is added 
placed on the T0S« 



Notes The value loaded by 
double precision* 



the base-displacement must not be 



D££££5S SMt SUM IU *OQM iQ£fi£2 



Formats 



I ..... 

I 

I op code 

I 111 100 101 

I 

i 







The DEPRESS operator insures that any occupied TOS registers are 
pushed down into memory. 

fiii£LI£iI£zQiii LMZ12 JJQ4 M£Ll£hIZzl*Q £0Ji£2> 



Format 







1 




1 


op code 


1 


111 101 100 


\ 





op code 
111 101 101 



0UP1 



DUP2 



DUPt Cor DUP2) pushes onto the stack one Cor two) vatuefsj or 
address descri pt or( s) which exactly duplicate**) the one for two) 
itemCs) currently at the top. Any combinations of single-word or 
double-word item<s) may be duplicated. 
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£S£HiJH££ iKiU 



Format * 



I -• 

I 

I op code 

1 111 100 001 

1 

I—- — - ~ 







XCH exchanges the top two items on the stack 
sin9le"'word or double-word stack items. 



These nay be 



For ii at * 



JCJb^£JS IX££ i£JSI2 



op code 
111 110 100 



van ant 



9 9 



1J 



Variant Type 

00 Integer function 

01 Reit function 

10 Subroutine 

11 CoJbte precision function 

CKT requires that the first single-word item below the RCW be an 
integer value* The value is popped from the stack and replaced 
by the RCW. The value is compared with the type in the operator 
and* if they are not equal* the program is halted and an "INVALID 
SUBPROGRAM TYPE* messaqe is generated. 
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Format : 



f 






1 


1 
1 
1 


op code 1 
ui too too 


1 monitor 
1 value 


J 
i 
i 
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9 9 16 

HMON outputs the eight-bit monitor value to the hardware monitor. 

££!*££ aJdII£b 1SSJQ 



Format : 



I . 

1 

1 op code 
I 111 110 I 
I 





01 



1 

! 
— -I 



SSW loads program switches 1 through P (not or 9) from the run 
structure nucleus* as a 32-bit literal* and pushes this onto the 
st ack • 
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fi£S£Jil£X.Ul& E3B IZJD JQJ3U£II£E Qhll 

All instructions in this section are available 
coup iter only* not in the standard compiler. 



in the I/O 



£J2flM.lijNJL£AI£ ttflfiH <£IXjl£II>J 



FonatJ 



op co de 
III 001 110 



FIX. BIT 



8 9 

COMMUNICATE toads the 48-bit RS.COHMUNIC ATE.iSG.PTR area of the 
run structure nucleus with an SOL-type descriptor indicating a 
length of 120 bits and the absolute address of the message to be 
communicated before giving up control to the MCP. 



the Fortran data address of the Message* The 

a siliple (one-word!) address* not an array address 
FIXoBIT * 1* then the ZV-Mt -.field at the message 

a right- just if ied* 18-bit* 

followed by displacement). 

base-relative address and the 

present before control is 



The TOS must be 
address lust be 
descriptor. If 

address * 72 biits CCT.2) is 
segment-relat i ve dafca address (base 
This address must be converted to a 
indicated data segment must be made 
transferred to the WCP# 
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mSA£I £i£ifi iUBLl 



For Mat 



op code 
in on in 



i 

1 field indicator 

1 00 = tract ion 

I 01 = exponent 
, ...... ... 



10 s type 

11 = undefined 



XTRF extracts either the type* exponent or friction C from a real 
value only) field from a single- or double-word item found on the 
TQS. The resultant value replaces the original value on the 

stack in integer format. The field to be isolated is indicated 
by the two-bit value of the field indicator. 



U.AJ2- UU UQ.M2 



Format : 













1 








I 


1 


op 


cod 


le 


1 


1 


111 


Oil 


010 


I 


1 








1 



















! 


3 



L00B loads to 53 bits from a data area to the T0S# in the form 
of an integer- It expects the following items on the stack: 



TQS 



An address which may be an array address* 



T0S-1 The address modifier* which is added to the above address 
as a bit displacement into the field* The modifier inay be 
negative* 



T0S-2 The length in tits (must be less than or equal to 33)- to 
be loaded to the evaluation stack* 
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Format s 



I 

1 op code 
t 111 001 110 

f 

I 



3 

L08 loads eight bits from a data area to the TOS in the form of 
an integer* It expects the following items on the stack: 

TOS An address which may be an array address. Currently* this 

address may not be the address of a stack-relative* 
double-precision i ten* unless TOS- 1 is less than 23 • 

TQS«*l The address modifier* which is added to the above address 
as a bit displacement into the field. The modifier may be 
negative. 



LflAS QMMHl£hIL Mill iiflfifl 

Format: 

II 
I op code 1 
I 111 100 000 § 
li 

I- - 1 

OB 

LiJCFt loads the low-crder 36 bits' of the run structure reply atba 
to the TOS* 
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Format * 



1 — 

I 

I op code 

I 111 001 111 

I 



STQB expects four parameters on the stack: 

TOS An address (tase) of a data area* The address nay be an 

array address which requires bounds checking* but it may 
not be the address of a stack-relative* doubt e-precisi on 
item* 

T0S-1 An integer value which serves as an address modifier in 
bits. 

T0S-2 An integer value which tells how many bits (from the 

right) are to be stored. 

T0S-3 A valuer part of which is to be stored into the program»s 
data area. The value may be either single or double 

precision.*' 
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Format s 



I 1 

I 1 

1 op code I 
I ill 1 10 001 i 
1 I 

I --1 

OB 

STC expects four items on the stack: 

TQS The base address of a storage field* 

TOS-1 A bit displacement into the field, 

TOS-2 The length Cin characters! of the field to be filled. 

TOS-3 A single- or douhle-word item -containing the characters 
to store • 

If the length of the field to be filled is greater than the 
nuiber of characters given* the given characters are sorted 
cyclically and repeatedly until the field is filled. In a 
single-word source {four characters)* the characters wilt be 
left- just if red in the ion-order 32 bits. In a double-length 
source word (eight characters)* the first four characters will be 
as in a single-length ite« and the second four will be 
left- justified in the tow-order 32 bits of the second 36 bits. 
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For « at s: 

i 

I op coda 

1 111 110 010 

1 

! « 

3 

WIQ expects four items on the stack: 
TOS Th«* base address of a storage field* 

TOS-l A bit di spt acetnent into the field from the base. 
TOS-2 The length tin characters) of the field to be filled. 
TQS-3 A Cpossifcly extended) integer. 

It converts TOS-3 fro« binary to .EBCDIC, display characters and 
write the characters into the designated field* ri gh t- just if i ed# 

and with zero fill. 



BURROUGHS CORPORATION 
COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 



4-39 

COMPANY CONFIDENTIAL 
BieOO/tUFOO FORTRAN 5-LANGUAGE 

p. s. 2201 brsr <d> 



fii AM LSLM2 



Format 



i 

i 

1 op code 
I 111 110 010 

I 

I ...... 

P 



Q9S expects three ite»s on the stack: 

TOS Base-di splacenen t data address pointing to W Q5 W or "OP" 

error message. 

TOS-1 Message length in bytes 

TOS-2 COMMUNICATE verb (always 29) 

QOS causes a COMMUNICATE verb to be issued* causing the job to be 
discontinued and the specified error message to be displayed. 



IX-l 
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DEPRESS THE STACK TO MEMORY (DPRS) 4-30 

DESCRIPTIONS 4-7 
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